home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_135_PrnQuot.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  1005 b   |  32 lines
  1. on mouseUp
  2.   set the puppet of sprite 16 to 0
  3.   puppetSound("mainsnd")
  4.   if objectp(myFile) then
  5.     set myFile to 0
  6.   end if
  7.   set myFile to new(xtra("fileio"))
  8.   set fileName to getOSDirectory() & "\colsonid"
  9.   openFile(myFile, fileName, 1)
  10.   if status(myFile) = 0 then
  11.     set theFile to readFile(myFile)
  12.     put theFile into field "customera"
  13.     closeFile(myFile)
  14.     set myFile to 0
  15.     put line 1 of field "customera" into field "name"
  16.     put line 2 of field "customera" into field "title"
  17.     put line 3 of field "customera" into field "company"
  18.     put line 4 of field "customera" into field "address"
  19.     put line 5 of field "customera" into field "city"
  20.     put line 6 of field "customera" into field "state"
  21.     put line 7 of field "customera" into field "zip"
  22.     put line 8 of field "customera" into field "phone"
  23.     put line 9 of field "customera" into field "fax"
  24.   else
  25.     closeFile(myFile)
  26.     set myFile to 0
  27.     play frame the frame + 1
  28.     abort()
  29.   end if
  30.   go(the frame + 1)
  31. end
  32.